home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Bus
/
S
/
Stock HELPER®.cpt
/
Stock HELPERÆ V0.2
/
card_28475.txt
< prev
next >
Wrap
Text File
|
1988-03-23
|
5KB
|
239 lines
-- card: 28475 from stack: in.2
-- bmap block id: 29285
-- flags: 4000
-- background id: 2433
-- name: Title Card
----- HyperTalk script -----
on openCard
global headerCard
put id of this card into headerCard
end openCard
-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=239 top=307 right=341 bottom=272
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First Help
----- HyperTalk script -----
on mouseUp
go to card "Help Card"
end mouseUp
-- part 4 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=319 top=224 right=241 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Date for Update
----- HyperTalk script -----
on closeField
global dateforUpdate
put card field "Date for Update" into dateforUpdate
end closeField
-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=90 top=234 right=282 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 12074 / 12074
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Plot All
----- HyperTalk script -----
on mouseUp
global headerCard
repeat with i=1 to number of cards
go card i
get the short name of background
if (it="Stock Chart") or (it="Advance-Decline Chart") then
send mouseUp to background button "Plot" of card i
end if
end repeat
go headerCard
end mouseUp
-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=44 top=190 right=223 bottom=176
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update All
----- HyperTalk script -----
on mouseUp
global cardNr,headerCard,updateFlag,dateforupdate
ask "Date of Update"
if it is not empty then
put it into dateforupdate
put it into card field "Date for Update"
set cursor to 4
put 1 into cardNr
put false into cardFound
set lockscreen to true
repeat until cardFound or (cardNr>the number of cards)
go card cardnr
get the short name of background
if (it="Stock Chart") or (it="Advance-Decline Chart") then
QuickUpdate
put true into cardFound
else
add 1 to cardNr
end if
end repeat
set lockscreen to false
if cardFound then
put "openCard" into updateFlag
send tabKey to card "Update All"
put "OK" into updateFlag
end if
end if -- it is not empty
end mouseUp
-- part 7 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=190 right=212 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find by Symbol
----- HyperTalk script -----
on mouseUp
Ask "What is the Symbol for the Stock or Indicator"
put it into SearchName
findString searchName,"Stock Symbol"
end mouseUp
-- part 8 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=225 right=247 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find by Name
----- HyperTalk script -----
on mouseUp
Ask "What is the Name of the Stock or Indicator"
put it into SearchName
findString searchName,"Stock Name"
end mouseUp
-- part 9 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=345 top=260 right=282 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
ask "Find what?"
put it into searchName
if it is not empty then
set cursor to 4
set lockScreen to true
find searchName
if short name of this card is "Title card" then
answer searchName&&"not found"
end if
set lockScreen to false
end if
end mouseUp
-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=205 top=225 right=247 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Add New Item
----- HyperTalk script -----
on mouseUp
answer "Type of item" with "Indicator" or "Adv-Dec Line" or "Stock"
put it into itemType
ask "Symbol of "&itemType
put it into ItemSymbol
ask "Name of "&itemType
put it into ItemName
if it is empty then
exit mouseUp
end if
if itemType="Adv-Dec Line" then
go card id 37418 -- Blank Advance-Decline Chart
else
go card id 36791 -- Blank Stock Chart Card
end if
domenu "Copy Card"
Ask "Place after:"
if it is empty then
go card id 37418
else
find it
end if
domenu "Paste Card"
put ItemSymbol into field "Stock Symbol"
put itemName into field "Stock Name"
send newCard
go card "Title Card"
end mouseUp
-- part contents for card part 4
----- text -----
880318